From d071fe405455a6814127bbb31ed8182e18050871 Mon Sep 17 00:00:00 2001
From: Michael Albinus <michael.albinus@gmx.de>
Date: Fri, 2 Oct 2009 06:00:58 +0000
Subject: [PATCH] * w32fns.c (Fsystem_move_file_to_trash): Use
 delete-directory.

---
 src/w32fns.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/w32fns.c b/src/w32fns.c
index 2b6b12e671c..8003d791719 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -6218,7 +6218,7 @@ DEFUN ("system-move-file-to-trash", Fsystem_move_file_to_trash,
   if (!NILP (Ffile_directory_p (filename))
       && NILP (Ffile_symlink_p (filename)))
     {
-      operation = Qdelete_directory_internal;
+      operation = intern ("delete-directory");
       filename = Fdirectory_file_name (filename);
     }
   filename = Fexpand_file_name (filename, Qnil);
-- 
2.30.2